MODULE qcim_global_types

   IMPLICIT NONE
   PUBLIC   

!------------------------------------------------------------------------------

   ! We select here the REAL and INTEGER precisions
   !   INTEGER, PARAMETER :: qcim_INTK  = SELECTED_INT_KIND(9),           &
   !                         qcim_REALK = SELECTED_REAL_KIND(XXX) 
   ! Use standard integers and REAL*8 double precision floats
   INTEGER, PARAMETER :: qcim_INTK  = KIND(1),                         &
                         qcim_REALK = KIND(1D0) 

!===============================================================================

   TYPE qcim_scheme
      INTEGER(qcim_INTK) :: nbpoints
   END TYPE qcim_scheme

!------------------------------------------------------------------------------

END MODULE qcim_global_types

